Top 10k strings from Instrukcja HiSoft Pascal (1987)(W.P.K. Zielonka)(pl).tap in <root> / bin / z80 / software / Sinclair Spectrum Collection TOSEC.exe / Sinclair ZX Spectrum - Utilities & Educational / Sinclair ZX Spectrum - Utilities & Educational - [TAP] (TOSEC-v2007-01-01) /
Back to the directory listing
16 4 YCZALNIA PROGRAM 4 W KOMPUTEROWYCH ***************** ***************** Artur Matuszewski ***************** ***************** skr. poczt. 9 / 2 ***************** ***************** 05 - 220 Z I E L O N K A ***************** ~~~~~~~~~~~~~~~~~~~~~~~~~~ ***************** ***************** Z A P R A S Z A ! ***************** **************************************************************************************************************************************** PRZESUWANIE TEKSTU : klawisz 6 -- w g 4 ***************************************************************************************************************************************** ***************** WYPO 4 HISOFT - PASCAL 4 ~~~~~~~~~~~~~~~~~~~~~ klawisz 7 -- w d 4 3 lnych procedur 3 SKI *** Pozna 3 JACEK OSADZI 3 Opisy poszczeg 3 ________________________________________________________________*********************************************************J.O.*** 2 woa w lewo o k 2 wia. Stan ten powoduje w nast 2 wia. Stan ten powoduje w nast 2 wia w prawo o k 2 wia pod k 2 wia na pozycji danej wsp 2 wia jego przemieszcza- nie si 2 wia naprz 2 wia polegaj 2 pnych procedurach powoduj 2 pnych procedurach dotycz 2 pnych procedurach dotycz 2 cych przemieszczanie si 2 ci od stanu pisaka nast 2 ca na : -- oczyszczeniu ekranu, -- ustawieniu 2 a- danie druku lub rysunku na poprzedni wraz z wygaszaniem punkt 2 a i pisaka, parametr ON = 0 przy- wraca tryb normalny OVER (ON)__________dla parametru ON = 1 powoduje nak 2 zapa- lonych, je 2 ekranu na drukark 2 oczywi 1 zyku LOGO :_________________________________________ FWD (L)____________procedura przesuwaj 1 zyku LOGO :_________________________________ FD (X)_____________procedura przesuwaj 1 zyku BASIC, ale bez ogranicze 1 zyku PASCAL. Zestaw pos 1 zyka BASIC :___________________________________________ PLOT (X, Y)________rysuje punkt o wsp 1 ywana przez procedur 1 ywana przez procedur 1 ym ekranie, 1 ym ekranie NEG________________zamiana wszystkich punkt 1 ym e- kranie ( negatyw obrazu ) TLO (T)____________zmiana t 1 yczy AUTOR ( programu i instrukcji ) ************************************************************************ 1 y z poziomu PASCALA wczyta 1 y odpowiedzie 1 wni z normalnym ekranem, a w razie potrzeby mo 1 wietlenie niewidocznego oraz "schowa- nie" bie 1 wia. TOWARDS (X, Y)_____funkcja podaj 1 wia. __________________________________________________________________2. PROCEDURY b 1 wia, czyli tworzy wyimaginowany stw 1 wia : (typ:INTEGER) 0 -- opuszczony ( 1 wia ( 0 odpowiada ustawieniu pionowo w g 1 wia wstecz o X jed- nostek ( uwagi o rysowaniu jw. ) RT (K)_____________obr 1 wia wstecz o L jed- nostek ( uwaga o rysowaniu jw. ) RIGHT (A)__________obr 1 wia w nast 1 wia w LOGO w trybie WINDOW (OKNO); --- dodatkowe procedury umo 1 wia o zakresach : XCOR : 1..255, YCOR : 1..175, gdzie punkt (0, 0) odpowiada lewemu dolnemu naro 1 wia o L jednostek w kierunku okre 1 wia do pozycji w 1 wia ______w j 1 wia ( w stopniach ), gdzie 0 odpowiada zwr 1 wia ( jego pozycja na ekranie oraz stan pisaka ) s 1 wia (opuszczony lub podniesiony ) zostawia on 1 wek zegara LINE1______________procedura pomocnicza do LINE SPOUT______________procedura pomocnicza dla procedur do- tycz 1 w, tzn. wy- 1 w, by na wprost siebie mia 1 w) ; BEEP1 (T, F)____procedura pomocnicza wywo 1 w) i ram- ki, a ponadto zmian 1 w : pisaka -- 6 ( 1 w wszystkich powy 1 w rysowania : XCOR, YCOR -- bie 1 w porusza si 1 w lub gra- fiki SCROLL_____________przesuni 1 w i rysunk 1 w druku i rysowania okre 1 w zosta- wia 1 w zapalonych na zgaszone i odwrotnie na ca 1 w prze- mieszcza si 1 w oraz do uzyskiwania przerw czasowych w trakcie wykonywania programu. Oto kr 1 w ekranu oraz otrzymanie negatywu ekranu ( -- tak 1 w oraz wype 1 w (INK) oraz ramki (BORDER), --- ustalenie parametr 1 w ju 1 w ___________________________________________________________________3. Inne procedury :________________________________________ ARCR (R, A)________przemieszczanie 1 uje procedur 1 uje efekt iden- tyczny jak przy PAUSE.) ; WAIT (T)________procedura o dzia 1 ugi. Naci 1 tych figur; --- istniej 1 ty), t 1 trza zamkni 1 tkowo niewi- docznemu SCRSWAP____________szybka zamiana obu ekran 1 tko- wemu, NR = 1 odpowiada ekranowi "zapaso- wemu", umieszczonemu powy 1 tki opis procedur: BEEP (T, H)_____wytworzenie d 1 tem K stopni ( bez zmiany po 1 tem A stopni ( bez zmiany po 1 tem 0 , wraz z czynno 1 tem 0 ), -- ustaleniu kolor 1 tem 0 ), -- opuszczeniu pisaka 1 tego konturu, wew- n 1 ta, pod jakim musia 1 ta ustawienia (typ: REAL) 1 ta usta- wienia 1 t K stopni SETXY (X, Y)_______ustawienie 1 t K stop- ni ( bez zmiany po 1 t A stopni TURN (A)___________tak samo jak LEFT (A) VECTOR (A, R)______przesuni 1 t A stop- ni ( bez zmiany po 1 t A SETXY (X, Y)_______ustawienie 1 szych procedur ) . **************************************************************** Zadowolenia z wykorzystania powy 1 szych procedur ================================================================ ************************************************************************ 1 szego zestawu pro- cedur 1 sza jas- no 1 rze pod k 1 ry musi by 1 rodku ekranu ( tzn. 127, 95 ) i ustawienie go pod k 1 rodka X, Y i promieniu R COPY_______________kopiuje zawarto 1 rod- ku ekranu (pozycja 127,95) i zwr 1 rod- ku ekranu (pozycja 127,87) i zwr 1 rego znajduje si 1 rego b 1 rednio, ale wymaga podania czasu T w jednostkach odpowiadaj 1 puje automatyczne wczy- tanie programu GRAF.BIN i kompilatora oraz jego wywo- 1 pnych segmen- t 1 pnie nale 1 pne procedury dotycz 1 owana wielokrotnie SCRCOPY____________szybkie przerzucenie (skopiowanie) za- warto 1 onym do poprzedniej ( SECONDS ), z identycznym parametrem czasowym, ale przerwa cza- sowa w wykonywaniu programu jest niezale 1 ony liczb 1 nikowi e- kranu, HEADING --------- bie 1 nikowi ekranu ). HD --------- bie 1 nienie zamkni 1 nianie wn 1 na szybko zamieni 1 na stosowa 1 na porusza 1 na od naciskania klawiszy. Podanie T = 0 nie wywo 1 na je w tej sytuacji 1 lonym przez k 1 liwia : --- okre 1 liwia wygodne tworze- nie grafiki. Ma on znacznie wi 1 liwia to oczywi 1 li prze- widuje si 1 lenie i zmian 1 lenie i zmian 1 ladu. Parametry 1 ladu) 1 ladu w kolorze C (1..7) ( PENSTATUS := 0 ) PENUP______________podniesienie pisaka 1 lad), 1 -- podniesiony ( 1 lad w po- staci linii na ekranie lub te 1 la- j 1 la d 1 ku o czasie trwania T i wysoko 1 ku F ; BEEPER__________procedura wywo 1 ksze od 32672. Taka sytuacja odpowiada dok 1 gu o promieniu R; zmienna A okre 1 g o wsp 1 enia ) LT (K)_____________obr 1 enia ) LEFT (A)___________obr 1 enia ) PENDOWN (C)________opuszczenie pisaka 1 enia ) PD_________________opuszczenie pisaka 1 eli nie b 1 ej RAMTOP-u, pocz 1 ego ekranu bez naru- szania istniej 1 ego ekranu o 1 punkt (piksel) w g 1 e wszelkich parametr 1 e rozmiary tablic ). UWAGA : 1 e procedury umo 1 e bez niszczenia rysunku ); --- przez zarezerwowanie miejsca w pami 1 e punkty na jego trasie "zgaszone" b 1 dzie wykorzystany drugi "ekran", mo- 1 dzie "gasi 1 dzie on rysowa 1 dym wypadku. Procedura ta odpowiada dok 1 dnymi X, Y wraz z czynno 1 dnymi X, Y SETHD (A)__________ustawienie 1 dnych X, Y LINE (X, Y)________rysuje odcinek o wsp 1 dnych X, Y DRAW (X, Y)________rysuje odcinek o wsp 1 dnych (wek- torowych) X, Y (odpowiednik DRAW) COPY_______________kopiuje zawarto 1 dnych (wek- torowych) X, Y LINE ______________procedura pomocnicza do DRAW CIRCLE (X, Y, R)___rysuje okr 1 dnych (typ: REAL) ekranowych 1 dnych X, Y jest zapalony" BORDER (B)_________kolor ramki ekranu INK (I)____________kolor pisaka przy rysowaniu oraz li- ter przy drukowaniu na ekranie PAPER (P)__________kolor t 1 dne X,Y ( azymut danego pun- ktu ) ___________________________________________________________________3. Inne procedury :________________________________________ INWERSJA___________odwr 1 dne X, Y ================================================================ ************************************************************************** 1987.01.01 1 d o X jednostek ekranowych, przy czym w zale 1 d o L jednostek ekranowych, przy czym w zale 1 cznie z dwiema dolnymi liniami systemowymi ( 256 * 192 punkty ); --- operowanie wirtualne poza ekranem -- parametry procedur dotycz 1 czenie "odwracania" . W nast 1 czenie "gumki" 1 cym tworzenie grafiki w j 1 cych napis 1 cych jasno 1 cych go PX_________________w 1 cych drukowania i rysowania ________________________________________________________________ 2. PROCEDURY i FUNKCJE odpowiadaj 1 cych drukowania i rysowania ================================================================ ************************************************************************ 1 cych drugiego "ekranu", tzn. SCREEN, SCRSWAP 1 cych 1/50 sekundy oraz cz 1 cych 1/50 sek. Podanie P = 0 powoduje wstrzy- manie programu na czas nieogranicze- nie d 1 cy, ze zniszczeniem zawarto 1 cy wsp 1 ciwy zestaw procedur graficznych GRAF.PAS wczytywany z poziomu PASCALA (komend 1 cieranie, -- przesuni 1 cie zawarto 1 cie nie s 1 cie korzystanie z procedur doty- 1 cie dowolnego kla- wisza przerywa oczekiwanie w ka 1 cie bez rysowania, -- rysowanie z wygaszaniem punkt 1 cie stosowa 1 ci wprowadzenia podanych warto 1 ci tego ostatniego. Zawarto 1 ci tak, jak gdyby mie 1 ci stworzony zosta 1 ci od stanu pisaka 1 ci nie wi 1 ci ekran POINT (X, Y)_______funkcja podaj 1 ci W (identycznie jak komenda BEEP w j 1 ci 64483. Uniemo- 1 ci "ekranu zapasowego" na bie- 1 ci RAMTOP-u i rozmiaru tablicy po zainicjowaniu kompilatora, 2. program maszynowy GRAF.BIN, 3. kompilator HISOFT PASCAL HP 4TM 161, 4. w 1 ceniu w prawo: 90 ^ | 180 <----|----> 0 | | 270 PENSTATUS ------- stan pisaka 1 cenie kolor 1 cenie go ku g 1 cenie go w prawo ( pod k 1 cej linie i punkty na trasie 1 cego. Procedura mo 1 cego rysunku, inwersj 1 ce segmenty: 1. loader, zawieraj 1 ce pozycji poza ekranem zacho- wuj 1 ce parametrowi P. Podanie T = 0 wywo 1 ce odpowiednikami komend BASIC-a :_____ PLOT (X, Y)________rysuje punkt o wsp 1 ce odpowiednikami komend ______j 1 ce komendom grafiki ______ 1 ce komendom grafiki 1 ce grafiki lub pisania : NR = 0 odpowiada ekranowi pocz 1 ca procedur 1 ca identycznie jak PAUSE, ale parametrem T jest czas w sekundach. Procedura ta zreszt 1 ca rysowania : -- rysowanie, -- 1 c przerwania programu z ko- munikatem "Out of limits" , jak to ma miejsce w przypadku pakietu TURTLE. Parametry pozycji mog 1 aniu zbli 1 anie. Zgodnie z informacj 1 adnie zachowaniu si 1 adnie pro- cedurze WAIT w LOGO ( CZEKAJ w POL- SKIM LOGO ) . UWAGA : =============== W procedurach BEEP, SECONDS i WAIT czas mo 1 adnie ko- mendzie PAUSE w BASIC-u ; SECONDS (T)_____procedura dzia 1 adnego skutku ( -- przerwa o czasie 0 ). Procedura ta odpowiada dok 1 adanie (OVER), --- ustalenie pozycji drukowania (AT, TAB). Zestaw procedur DRUK.PAS wczytuje si 1 a, rysunku (napis 1 a i pisaka (li- ter ) na ca 1 a ekranu bez niszczenia istniej 1 a ekranu (1..9) BRIGHT (ON)________dla parametru ON = 1 podwy 1 a ekranu INV (ON)___________dla parametru ON = 1 odwraca kolory t 1 a -- 1 (niebieski), -- opuszczeniu pisaka 1 a (PAPER), napis 1 a na ekranie bez naruszania rysunku czy napis 1 a i pisaka przy drukowaniu i pisaniu, parametr ON = 0 przywra- ca tryb normalny INV (ON)___________dla parametru ON = 1 odwraca kolory t 1 a i pisaka przy drukowaniu i pisaniu, parametr ON = 0 przywra- ca jasno 1 ________________________________________________________________ BORDER (B)_________kolor ramki ekranu (1..7) INK (I)____________kolor pisaka przy rysowaniu oraz li- ter przy drukowaniu na ekranie (1..9) PAPER (P)__________kolor t 1 TURTLE-P.I 1 TT-PRINT 5 1 TOP OF FILE 1 START TAPE 1 SKI ************************************************************************** 1 GRAF-PAS.I@K 1 END OF FILE 1 DRUK-PAS.I 1 B^Press q to quit printing> 1 BEEP-PAS.I 1 6-ROLLDOWN,7-ROLLUP,P-LPRINT,Z-ZXPRINT,J-LOAD,Y-RETURN,T-MERGE 1 . ( Dotyczy to zre- szt 1 - cych do wytwarzania d 1 - wia pozostawianie przez niego 1 - wia ( tzn. w procedurach : FD, BK, SETXY oraz HOME ) rysowanie linii PU_________________podniesienie pisaka 1 - puje rysowanie linii lub te 1 - puje odpowiednia czynno 1 - dzie "zapala 1 - ci 1 - dnych ekranowych rysowania ( pozycja 0,0 odpowiada lewemu dolnemu naro 1 ). 1 ", natomiast punkty "za- palone" b 1 " widoczny, a pokaza 1 " HOME_______________powr 1 : G,,GRAF.PAS lub : G,, Zestaw posiada 3 zmienne, kt 1 : G,,DRUK.PAS lub : G,, ________________________________________________________________ 1 1987 W.P.K. ZIELONKA" 1 ). Nast 1 ) zdania : "punkt ekranu o wsp 1 zestaw procedur GRAF.PAS komend 1 zapalonych ( zobacz procedury : PD, PU, PE i PX ) BK (X)_____________przesuni 1 z progra- mem w kodzie maszynowym GRAF.BIN, kt 1 z ROM-u SPECTRUM (pod adresem #03B5) ; PAUSE (P)_______wytworzenie przerwy czasowej w wyko- nywanym programie, o czasie trwania P w jednostkach odpowiadaj 1 wiele zmiennych lub du 1 w loaderze, wido- czn 1 tzw. grafik 1 rysowanie okr 1 rysowania zale 1 punkt ma- j 1 punkt maj 1 przemieszcza si 1 przechowywane w 4 zmiennych global- nych : XCOR, YCOR ------ bie 1 prze- ciwnie do ruchu wskaz 1 parametr 1 od stanu pisa- ka ( -- zob. uwaga przy FD ) SETHD (K)__________ustawienie 1 od stanu pisaka ( -- zob. uwaga przy FD ) TURTLE_____________inicjalizacja trybu graficznego 1 nie BACK (L)___________przesuni 1 na pytania kompilatora : Top of RAM : 57571 Top of RAM for 'T' : 57571 ( lub "ENTER" ), Table size : 2000 (lub wi 1 na nie no- we punkty. Parametr ON = 0 przywraca tryb normalny SPOUT______________procedura pomocnicza dla procedur do- tycz 1 na nie no- we punkty. Parametr ON = 0 przywraca tryb normalny SPOUT______________procedura pomocnicza dla powy 1 na ekranie podczas wczytywania nast 1 miejscami oba ekrany, tzn. "schowa 1 linie w ten spos 1 informacj 1 i SCRCOPY. (Jako zb 1 drugi. Zestaw procedur GRAF.PAS komunikuje si 1 drugi "ekran", do kt 1 dlatego nast 1 bez rysowania ( PENSTATUS := 1 ) TURTLE_____________inicjalizacja trybu graficznego 1 bez rysowania PE_________________w 1 bez pozo- stawiania 1 aktualnych para- metr 1 RAMTOP do warto 1 PAUSE, przeliczyw- szy jedynie czas w sekundach na je- dnostki odpowiadaj 1 G,,). Po wczytaniu loadera nast 1 BEEP. Mo 1 1988.01.10 ***********************************************************************\ 1 1988.01.10 *********************************************************************** 1 1987.10.20 ***********************************************************************c 1 (INVERSE) i nak 1 (BRIGHT), miganie (FLASH), in- wersj 1 ( w dowolnym miejscu pro- gramu ) kolor 1 "ekranu zapaso- wego nie ulega zmianie i mo 1 z poziomu PASCALA komend 1 wykony- wane ), nie powoduj 1 one na ekranie ( chocia 1 o ko- nieczno 1 bez pozostawiania 1 J. OSADZI 1 ( logiczn 1 wczytany przed uruchomieniem kompilatora. W oryginalnym pakiecie znajduj 1 w programie jako globalne, a dotycz 1 po ekranie przy pomocy kilku prostych komend ( w tym wy- padku procedur); w zale 1 oryginalny zestaw TURTLE firmy HISOFT: --- operowanie na ca 1 dotycz 1 Zestaw procedur "GRAF.PAS" 1 Zestaw procedur "DRUK.PAS" 1 Zestaw procedur "BEEP.PAS" 1 Zestaw procedur "TURTLE" 1 wszystkie procedury graficzne i drukowania, na r 1 wywy 1 wywo 1 w trybie graficznym INK (I)____________kolor pisaka przy rysowaniu oraz li- ter przy drukowaniu na ekranie PAPER (P)__________zmiana koloru t 1 w trybie graficznym CLS________________czy 1 rysowania zale 1 dalej wykorzystana FILL (X, Y)________wype 1 BEEP1, wywo 1 ________________________________________________________________ 1. PROCEDURY i FUNKCJE b 1 ________________________________________________________________ 1. PROCEDURY odpowiadaj 1 ________________________________________________________________*********************************************************J.O.*** 1 SCREEN (NR)________wybranie numeru "ekranu", do kt 1 FLASH (ON)_________dla parametru ON = 1 powoduje migota- nie t 1 Zestaw procedur GRAF.PAS umo 1 Zestaw procedur DRUK.PAS umo 1 Zestaw procedur BEEP.PAS zawiera 6 procedur s 1 Zestaw procedur TURTLE jest oryginalnym zestawem f-my HISOFT umo 1 1